home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #4 / utv1n4s1.d64 / killer robots (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  2KB  |  44 lines
  1. 10 rem robots boot
  2. 20 poke 53280,.:poke 53281,.:print"[147]"
  3. 30 forj=49152to49497:reada:pokej,a:next
  4. 40 data 76,18,192,76,42,193,76,58,193,76
  5. 50 data 74,193,76,210,192,76,219,192,162,2
  6. 60 data 32,198,255,32,228,255,32,228,255,32
  7. 70 data 228,255,133,146,32,228,255,133,150,32
  8. 80 data 228,255,141,33,208,32,228,255,141,32
  9. 90 data 208,169,0,141,233,7,169,224,141,234
  10. 100 data 7,160,0,165,150,201,79,240,7,201
  11. 110 data 75,240,19,76,104,192,173,233,7,133
  12. 120 data 251,173,234,7,133,252,32,113,192,76
  13. 130 data 197,192,32,113,192,32,127,192,32,139
  14. 140 data 192,76,197,192,32,127,192,32,113,192
  15. 150 data 76,197,192,173,233,7,133,251,173,234
  16. 160 data 7,133,252,32,151,192,96,169,0,133
  17. 170 data 251,169,196,133,252,32,151,192,96,169
  18. 180 data 0,133,251,169,216,133,252,32,151,192
  19. 190 data 96,32,228,255,197,146,240,11,145,251
  20. 200 data 230,251,208,243,230,252,76,151,192,32
  21. 210 data 228,255,133,190,32,228,255,170,240,16
  22. 220 data 165,190,145,251,230,251,208,2,230,252
  23. 230 data 202,208,245,76,151,192,96,32,204,255
  24. 240 data 96,173,2,221,9,3,141,2,221,96
  25. 250 data 173,17,208,41,239,141,17,208,96,173
  26. 260 data 17,208,9,16,141,17,208,96,173,17
  27. 270 data 208,9,32,141,17,208,96,173,17,208
  28. 280 data 41,223,141,17,208,96,173,0,221,41
  29. 290 data 252,9,0,141,0,221,96,173,0,221
  30. 300 data 41,252,9,3,141,0,221,96,169,31
  31. 310 data 141,24,208,96,169,21,141,24,208,96
  32. 320 data 173,22,208,9,16,141,22,208,96,173
  33. 330 data 22,208,41,239,141,22,208,96,32,201
  34. 340 data 192,32,246,192,32,228,192,32,12,193
  35. 350 data 32,33,193,96,32,201,192,32,246,192
  36. 360 data 32,228,192,32,12,193,32,24,193,96
  37. 370 data 32,201,192,32,1,193,32,237,192,32
  38. 380 data 18,193,32,33,193,96
  39. 390 sys 49164:sys 49158
  40. 400 open 2,8,2,"rob.g,p,r":sys49152:close2
  41. 410 poke 53265,peek(53265) or 16
  42. 420 print"[129]load"chr$(34)"rob.p"chr$(34)",8":print"run:"
  43. 440 poke 198,3:poke 631,19:poke 632,13:poke 633,13:new
  44.